home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d12 / v10n17.arc / WINVER.ARC / WINVER1 < prev    next >
Text File  |  1991-09-25  |  179b  |  9 lines
  1. REM WINVER
  2.  
  3. Declare Function GetVersion Lib "kernel" () As Integer
  4.  
  5. Sub MAIN
  6.     vers = GetVersion
  7.     Print "Windows v. " ; vers Mod 256 ; "." ; Int(vers / 256)
  8. End Sub
  9.